-This Presentation will display the Old Faithful Dataset
-I will use plotly for my visualization
-Click -> arrow
4/26/2022
-This Presentation will display the Old Faithful Dataset
-I will use plotly for my visualization
-Click -> arrow
library(plotly)
data("faithful")
summary(faithful)
## eruptions waiting ## Min. :1.600 Min. :43.0 ## 1st Qu.:2.163 1st Qu.:58.0 ## Median :4.000 Median :76.0 ## Mean :3.488 Mean :70.9 ## 3rd Qu.:4.454 3rd Qu.:82.0 ## Max. :5.100 Max. :96.0
g <- ggplot(faithful, aes(x = eruptions, y = waiting)) + stat_density_2d(aes(fill = ..level..), geom = "polygon") + xlim(1, 6) + ylim(40, 100) ggplotly(g)
gg <- ggplotly(g, dynamicTicks = "y") style(gg, hoveron = "points", hoverinfo = "x+y+text", hoverlabel = list(bgcolor = "white"))
Thank you for viewing